<%@ Language=VBScript %>
<%	
	set Conn=server.CreateObject("ADODB.Connection")
	Conn.Open Application("StrConn")
	IDFlow=request("IDFlow")
	on Error Resume next
	Conn.BeginTrans
	sql1="delete from TvFlowNode where Maworkflow like '" & IDFlow & "'"
	conn.Execute sql1
	sql1="delete from TvWorkFlow where Maworkflow like '" & IDFlow & "'"
	conn.Execute sql1
	if Err.number then
		Conn.RollbackTrans
	else
		Conn.CommitTrans
	end if
	conn.Close
	set conn=nothing
	lnk="../frmTvWorkFlow.asp"
	Response.Redirect(lnk)
%>
